Chapter 3 - Javascript Visualizations

library(tidyverse)
library(plotly)

Figure 3.2

I’ll user echarts for the

Data for plots

Right plot - 3d surface

LS0tDQp0aXRsZTogIkNoYXB0ZXIgMyAtIEphdmFzY3JpcHQgVmlzdWFsaXphdGlvbnMiDQphdXRob3I6ICJKb3JnZSBNZW5kZXMiDQpkYXRlOiAiMTgvMDgvMjAyMCINCm91dHB1dDogaHRtbF9ub3RlYm9vaw0KLS0tDQoNCmBgYHtyIHNldHVwLCBpbmNsdWRlPUZBTFNFfQ0Ka25pdHI6Om9wdHNfY2h1bmskc2V0KGVjaG8gPSBUUlVFKQ0KYGBgDQoNCiMgQ2hhcHRlciAzIC0gSmF2YXNjcmlwdCBWaXN1YWxpemF0aW9ucw0KDQpgYGB7cn0NCmxpYnJhcnkodGlkeXZlcnNlKQ0KbGlicmFyeShwbG90bHkpDQpgYGANCg0KDQojIyBGaWd1cmUgMy4yDQoNCkknbGwgdXNlciBlY2hhcnRzIGZvciB0aGUgDQoNCiMjIyBEYXRhIGZvciBwbG90cw0KDQpgYGB7cn0NCkFkdmVydGlzaW5nIDwtIHJlYWRfY3N2KCdodHRwOi8vZmFjdWx0eS5tYXJzaGFsbC51c2MuZWR1L2dhcmV0aC1qYW1lcy9JU0wvQWR2ZXJ0aXNpbmcuY3N2JywNCiAgICAgICAgICAgICAgICAgICAgICAgIGNvbF90eXBlcyA9IGNvbHMoWDEgPSBjb2xfc2tpcCgpKSkNCg0KbW9kZWxfM18yIDwtIEFkdmVydGlzaW5nICU+JSANCiAgbG0oc2FsZXMgfiBUViwgZGF0YSA9IC4pICU+JSANCiAgY29lZigpDQoNCkIwIDwtIHNlcSg0LjksIDkuMSwgbGVuZ3RoLm91dCA9IDUwKQ0KQjEgPC0gc2VxKDAuMDI3LCAwLjA2NywgbGVuZ3RoLm91dCA9IDUwKQ0KDQojIyMgTGVmdCBwbG90LiBDb250b3VyDQoNCnBsb3RfbHkoKSAlPiUgDQogIGFkZF9jb250b3VyKHogPSBSU1Nfc3VyZmFjZSwgeD1CMCwgeT1CMSwNCiAgICAgICAgICAgICAgYXV0b2NvbG9yc2NhbGUgPSBGQUxTRSwgDQogICAgICAgICAgICAgIGNvbG9yc2NhbGUgPSAiQmx1ZXMiKSAlPiUgDQogIGFkZF9tYXJrZXJzKHggPSBtb2RlbF8zXzJbMV0sIHkgPSBtb2RlbF8zXzJbMl0sDQogICAgICAgICAgICAgIG1hcmtlciA9IGxpc3QoY29sb3IgPSAicmVkIiksIA0KICAgICAgICAgICAgICBuYW1lID0gIkxpbmVhciBtb2RlbFxuIGNvZWZmaWNpZW50cyIpDQoNCg0KYGBgDQoNCiMjIyBSaWdodCBwbG90IC0gM2Qgc3VyZmFjZQ0KDQpgYGB7cn0NClJTU19mdW5jdGlvbiA8LSBmdW5jdGlvbihpbnRlcmNlcHQsIHNsb3BlKXsNCiAgc3VtKChBZHZlcnRpc2luZyRzYWxlcyAtaW50ZXJjZXB0ICAtc2xvcGUqQWR2ZXJ0aXNpbmckVFYpXjIpDQp9DQoNCmRhdGFfM18yIDwtIGV4cGFuZF9ncmlkKEIwLCBCMSkgJT4lIA0KICByb3d3aXNlKCkgJT4lIA0KICBtdXRhdGUoUlNTX3ZhbHVlcyA9IFJTU19mdW5jdGlvbihCMCwgQjEpKQ0KDQpSU1Nfc3VyZmFjZSA8LSBvdXRlcihCMCwgQjEsIEZVTiA9IFZlY3Rvcml6ZShSU1NfZnVuY3Rpb24pKQ0KDQpwbG90X2x5KCkgJT4lIA0KICBhZGRfc3VyZmFjZSh4ID0gQjAsIHkgPSBCMSwgeiA9IFJTU19zdXJmYWNlLCANCiAgICAgICAgICAgICAgc2hvd3NjYWxlID0gRkFMU0UsYXV0b2NvbG9yc2NhbGUgPSBGQUxTRSwgDQogICAgICAgICAgICAgIGNvbG9yc2NhbGUgPSAiQmx1ZXMiKSAlPiUgDQogIGFkZF9tYXJrZXJzKHggPSBtb2RlbF8zXzJbMV0sIHkgPSBtb2RlbF8zXzJbMl0sIA0KICAgICAgICAgICAgICB6ID0gUlNTX2Z1bmN0aW9uKG1vZGVsXzNfMlsxXSwgbW9kZWxfM18yWzJdKSwNCiAgICAgICAgICAgICAgbWFya2VyID0gbGlzdChjb2xvciA9ICJyZWQiKSwgDQogICAgICAgICAgICAgIG5hbWUgPSAiTGluZWFyIG1vZGVsXG4gY29lZmZpY2llbnRzIikNCmBgYA0KDQo=